﻿Imports DataObject
Imports BusinessObject
Imports Microsoft.ApplicationBlocks.Data

Public Class frmTinhTrangHopDongDetail

    Private ptyTinhTrangHopDong As New TinhTrangHopDong
    Private oTinhTrangHopDong As New BusTinhTrangHopDong
    Private oFunction As New hDCommonFunction

    Private Sub frmTinhTrangHopDongDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (Me.eActionMode = EditMode.AddNew) Then
            Me.Text = "Thêm mới tình trạng hợp đồng"
        Else
            Me.Text = "Sửa tình trạng hợp đồng"
        End If
        txtMaTinhTrang.Focus()
        DataBindingToControl(GroupBox1)
    End Sub

    Public Overrides Function ValidateData() As Boolean
        If txtMaTinhTrang.Text = "" Then
            MessageBox.Show("Mã tình trạng hợp đồng không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtMaTinhTrang.Focus()
            Return False
        End If
        If txtTenTinhTrang.Text = "" Then
            MessageBox.Show("Tên tình trạng hợp đồng không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtTenTinhTrang.Focus()
            Return False
        End If
        Return True
    End Function

    Protected Overrides Function SaveDictionary() As Boolean
        Dim bResult As Boolean = False
        Try
            ptyTinhTrangHopDong.MaTinhTrangHopDong = txtMaTinhTrang.Text
            ptyTinhTrangHopDong.TenTinhTrangHopDong = txtTenTinhTrang.Text
            ptyTinhTrangHopDong.DienGiai = txtDienGiai.Text
            If (eActionMode = EditMode.AddNew) Then
                oTinhTrangHopDong.InsertTinhTrangHopDong(sConn, ptyTinhTrangHopDong)
            ElseIf (eActionMode = EditMode.Edit) Then
                ptyTinhTrangHopDong.SoTinhTrangHopDong = RowDetail.Item("SoTinhTrangHopDong")
                oTinhTrangHopDong.UpdateTinhTrangHopDong(sConn, ptyTinhTrangHopDong)
            End If
            bResult = True
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            bResult = False
        End Try
        Return bResult
    End Function

End Class
